﻿Public Class Form9

 
    Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'CADISDataSet.V1002' table. You can move, or remove it, as needed.
        Me.V1002TableAdapter.Fill(Me.CADISDataSet.V1002)

        Me.Size = My.Settings.Form9Size
        FormPos(My.Settings.Form9Pos)
        Me.Location = My.Settings.Form9Pos



        'TODO: This line of code loads data into the 'CADISDataSet.V1001' table. You can move, or remove it, as needed.
        Me.V1002TableAdapter.Fill(Me.CADISDataSet.V1002)

        Me.CrystalReport31.SetDataSource(Me.CADISDataSet)

        ' Me.CRV.SelectionFormula = "{AUF.Auftragsnummer} like '70038349'"

        Me.CRV.ReportSource = Me.CrystalReport31
        Me.CRV.RefreshReport()



    End Sub


    Private Sub Form9_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.Form9Size = Me.Size
        My.Settings.Form9Pos = Me.Location


    End Sub


End Class